;:open2,8,2,"print 40,p,w
;:sys36864
	;.opt o2
	*= 40693
	lda #158
	cmp 56
	bcs goon
	sta 56
	sta 52
goon	lda #<l1
	ldy #>l1
	sta $326
	sty $327
	lda #0
	sta count
	lda #<hi
	ldy #>hi
	jmp $ab1e
hi	.byt 13
	.byte "print 40"
	.byt 13
	.byte "\x11(c) nh-130489-arr        ein nss-tool"
	.byt 13
	.byte "\x11stellt bei druckerumleitungen (cmd 4)"
	.byt 13
	.byte "sicher, dass nur 40 zeichen pro zeile"
	.byt 13
	.byte "zum drucker kommen und zentriert wird."
	.byt 13,0
l1	pha
	lda $9a
	cmp #4
	beq aha
	jmp $f1cd
aha	pla
	cmp #13
	beq ret
	pha
	jsr $f1ca
	cmp #32
	bcc out
	inc count
	lda count
	cmp #40
	bcc out
	lda #13
	jsr $ffd2
out	pla
	rts
ret	lda #0
	sta count
	lda #13
	jsr $f1ca
	txa
	pha
	lda #32
	ldx #20
rand	jsr $f1ca
	dex
	bne rand
	pla
	tax
	lda #13
	clc
	rts
count	brk